home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wp / dana104.zip / TSRTMPL.DAS < prev    next >
Text File  |  1995-09-02  |  2KB  |  127 lines
  1. '
  2. ' TSR Script Template
  3. '
  4.  
  5. Const STATE_INIT        = 0
  6. Const STATE_BEFORE_OPEN = 1
  7. Const STATE_AFTER_OPEN  = 2
  8. Const STATE_AFTER_NEW   = 3
  9. Const STATE_BEFORE_SAVE = 4
  10. Const STATE_AFTER_SAVE  = 5
  11. Const STATE_BEFORE_CLOSE= 6
  12. Const STATE_BEFORE_EXIT = 7
  13. Const STATE_KEY_PRESS   = 8
  14. Const STATE_CHAR        = 9
  15. Const STATE_ENTER       = 10
  16. Const STATE_TIMER       = 11
  17. Const STATE_ACTIVATE    = 12
  18.  
  19. Main ()
  20.  
  21.     Select Case .DanaState
  22.     Case STATE_INIT
  23.         StayResident()
  24.     Case STATE_BEFORE_OPEN
  25.         OnBeforeOpen(.ParmStrA)
  26.     Case STATE_AFTER_OPEN
  27.         OnAfterOpen()
  28.     Case STATE_AFTER_NEW
  29.         OnAfterNew()
  30.     Case STATE_BEFORE_SAVE
  31.         OnBeforeSave(.ParmStrA)
  32.     Case STATE_AFTER_SAVE
  33.         OnAfterSave(.ParmStrA)
  34.     Case STATE_BEFORE_CLOSE
  35.         OnBeforeClose()
  36.     Case STATE_BEFORE_EXIT
  37.         OnBeforeExit()
  38.     Case STATE_KEY_PRESS
  39.         OnKeyPress(.ParmA, .ParmB)
  40.     Case STATE_CHAR
  41.         OnChar(.ParmA)
  42.     Case STATE_ENTER
  43.         OnEnter()
  44.     Case STATE_TIMER
  45.         OnTimer()
  46.     Case STATE_ACTIVATE
  47.         OnActivate()
  48.     Case Else
  49.     End Select
  50.  
  51. End
  52.  
  53. '/////////////////////////////////////////////////////////
  54. ' Message handlers
  55.  
  56. '///////////////////////////////
  57. ' Before open file
  58. Proc OnBeforeOpen(strName$)
  59.  
  60. End Proc
  61.  
  62. '///////////////////////////////
  63. ' After open file
  64. Proc OnAfterOpen()
  65.  
  66. End Proc
  67.  
  68. '///////////////////////////////
  69. ' After new file
  70. Proc OnAfterNew()
  71.  
  72. End Proc
  73.  
  74. '///////////////////////////////
  75. ' Before save file
  76. Proc OnBeforeSave(strName$)
  77.  
  78. End Proc
  79.  
  80. '///////////////////////////////
  81. ' After save file
  82. Proc OnAfterSave(strName$)
  83.  
  84. End Proc
  85.  
  86. '///////////////////////////////
  87. ' Before close file
  88. Proc OnBeforeClose()
  89.  
  90. End Proc
  91.  
  92. '///////////////////////////////
  93. ' Before exit Dana
  94. Proc OnBeforeExit()
  95.  
  96. End Proc
  97.  
  98. '///////////////////////////////
  99. ' Key pressed
  100. Proc OnKeyPress(nKey%, nShift%)
  101.  
  102. End Proc
  103.  
  104. '///////////////////////////////
  105. ' Char input
  106. Proc OnChar(nChar%)
  107.  
  108. End Proc
  109.  
  110. '///////////////////////////////
  111. ' Enter key pressed
  112. Proc OnEnter()
  113.  
  114. End Proc
  115.  
  116. '///////////////////////////////
  117. ' 1 second interval
  118. Proc OnTimer()
  119.  
  120. End Proc
  121.  
  122. '///////////////////////////////
  123. ' Being activated current window
  124. Proc OnActivate()
  125.  
  126. End Proc
  127.